home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / tunes.arc / BROADWAY.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-02-28  |  1.6 KB  |  30 lines
  1. 5  KEY OFF:CLS
  2. 10  COLOR 3,0,8
  3. 20  LOCATE 7,32:COLOR 12:PRINT "On Broadway"
  4. 21  LOCATE 8,32:COLOR 3:PRINT "___________"
  5. 25  LOCATE 12,15:PRINT "  words and music by Barry Mann, Cynthia Weil, Mike Stoller and Jerry Leiber."
  6. 30  LOCATE 15,27: PRINT "program by Greg McCarty"
  7. 50  FOR X=1 TO 10000:NEXT:CLS
  8. 100  PLAY "MNT120O3"
  9. 105  FOR V=1 TO 3
  10. 106  CLS:IF V=1 THEN PRINT:PRINT " They say the neon lights are bright on Broadway."
  11. 107  IF V=2 THEN PRINT:PRINT " They say the woman treat you fine on Broadway."
  12. 108  IF V=3 THEN PRINT:PRINT " They say that I won't last too long on Broadway."
  13. 110  PLAY "P8 L8 CAF L4 G O4 C O3 AF E- G L2 F ML C L1 C"
  14. 111  FOR X=1 TO 2000:NEXT:IF V=1 THEN PRINT:PRINT " They say there's always magic in the air."
  15. 112  IF V=2 THEN PRINT:PRINT " But lookin' at them just gives me the blues."
  16. 113  IF V=3 THEN PRINT:PRINT " I'll catch a Greyhound bus for home they say."
  17. 120  PLAY "P8 MN L8 CAF L4 G O4 C O3 AF E- F ML L1 CC"
  18. 121  FOR X=1 TO 2000:NEXT:CLS:IF V=1 THEN PRINT:PRINT " But when you're walkin' down the street...":PRINT:PRINT " and you ain't had enough to eat..."
  19. 122  IF V=2 THEN PRINT:PRINT " `Cause how ya gonna make some time...":PRINT:PRINT " when all you got is one thin dime..."
  20. 123  IF V=3 THEN PRINT:PRINT " But they're dead wrong, I know they are...":PRINT:PRINT " `cause I can play this here guitar..."
  21. 130  PLAY "P8 MN L8 F O4 D O3 B- O4 L4 C FD O3 B- L2 O4 C P8 L8 O3 F O4 D O3 B- L4 O4 CFD O3 B- L2 O4 C":IF V=3 GOTO 151
  22. 131  CLS:IF V=1 THEN PRINT:PRINT " the glitter rubs right off and you're no-where."
  23. 132  IF V=2 THEN PRINT:PRINT " and one thin dime won't even shine your shoes."
  24. 140  PLAY "P8 O3 L8 CAF L4 G O4 C O3 AF E- F ML L1 CC"
  25. 150  NEXT V
  26. 151  CLS:PRINT:PRINT " and I won't quit till I'm a star on Broadway."
  27. 160  PLAY "P8 MN O3 L8 CAF L4GC L4 AF E- C L2 E- ML F L1 FF L4 F P4 P2"
  28. 170  CLS:LOCATE 25,30:INPUT "PLAY AGAIN (Y/N)"; Z$
  29. 180  IF Z$="Y" OR Z$="y" THEN RUN ELSE RUN "MENU.BAS"
  30.